home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_11_(11-1984).d64 / joy_cont sprite (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  39 lines
  1. 1 REM DOODLE
  2. 5 GOSUB900:STOPDSPR1,13,0,0,160+16,100+44,0,0:GOSUB140
  3. 10 STOPBANK0:STOPCB2K4:STOPBMGR1:STOPFBMS0:STOPFSCR1:STOPBSPP1,1
  4. 20 E=1:X=160:Y=100:C=-1:FORQ=1TO100:NEXT
  5. 30 IFPEEK(203)=60THEN130
  6. 31 IF PEEK(203)=4THENE=-E:IFE>0THENSTOPDSPR1,13,0,0,0,0,0,0
  7. 32 IFE<0THENSTOPDSPR1,13,0,0,X+16,Y+44,0,12STOPCLPXX,Y
  8. 35 JV=PEEK(56320):FR=JVAND16
  9. 40 JV=15-(JVAND15)
  10. 50 IFJV=0ANDFR=16THEN30
  11. 60 IFJV=1ORJV=5ORJV=9THENY=Y-1:IFY<0THENY=199
  12. 70 IFJV=2ORJV=6ORJV=10THENY=Y+1:IFY>199THENY=0
  13. 80 IFJV>=4ANDJV<=6THENX=X-1:IFX<0THENX=319
  14. 90 IFJV>=8ANDJV<=10THENX=X+1:IFX>319THENX=0
  15. 100 IFFR=0ANDJV=0THENC=-C:E=1:FORQ=1TO100:NEXT:IFC>0THENSTOPKSPR1:POKE53288,0
  16. 105 IFE<0THENSTOPESPR1:STOPMOVE1,X+16,Y+44:STOPCLPXX,Y:GOTO30
  17. 110 IFC>0THENSTOPPLOTX,Y:GOTO30
  18. 120 IFC<0THENSTOPESPR1:STOPMOVE1,X+16,Y+44:GOTO30
  19. 130 STOPBANK0:STOPBMGR0:STOPCB2K2:POKE198,0:PRINT"[147]":STOPKSPR1:END
  20. 140 PRINT"[147]DOODLE 64"
  21. 150 PRINT"USE JOYSTICK IN PORT 2"
  22. 160 PRINT"BUTTON TURNS INK ON/OFF"
  23. 165 PRINT"F1 TURNS ERASE MODE ON/OFF"
  24. 170 PRINT"HIT A KEY TO START"
  25. 180 PRINT"HIT SPACE[146] TO STOP"
  26. 185 PRINT"THE BLACK + IS YOUR CURSOR WHEN INK=OFF"
  27. 186 PRINT"THE GRAY +[160]IS YOUR CURSOR WHEN  ERASE=ON":STOPBKGD1:STOPFCOL0
  28. 190 GETA$:IFA$=""THEN 190
  29. 200 IFA$=" "THENRETURN
  30. 210 RETURN
  31. 900 X=13*64
  32. 910 READY:IFY<0THENRETURN
  33. 920 POKEX,Y:X=X+1:GOTO910
  34. 1000 DATA1,192,0,1,192,0,1,192,0,1,192,0,1,192,0
  35. 1010 DATA0,128,0,126,63,0,0,128,0,1,192,0,1,192,0
  36. 1020 DATA1,192,0,1,192,0,1,192,0,0,0,0,0,0,0
  37. 1030 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  38. 1040 DATA0,0,0,-1
  39.